home *** CD-ROM | disk | FTP | other *** search
/ Shareware Games Galore! / Shareware Games Galore!.iso / arcade / pcgolf / aintro.asc < prev    next >
Text File  |  1984-02-18  |  3KB  |  79 lines
  1. 10000 '*************************************************************
  2. 10010 '*****    PC-GOLF    THE GOLFER's PROGRAM     PC-GOLF    *****
  3. 10020 '*****    Version 1.3  (C) 1982,1983,1984 Ed Chandler    *****
  4. 10030 '*************************************************************
  5. 10040 '+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
  6. 10050 '    1. INTRODUCTION
  7. 10060 '+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
  8. 10070 '
  9. 10080 EXT$=".TXT"
  10. 10090 AI$(1)=DEV$+CM1$+EXT$:AI$(2)=DEV$+CM2$+EXT$:AI$(3)=DEV$+CM5$+EXT$
  11. 10100 AI$(4)=DEV$+CM4$+EXT$:AI$(5)=DEV$+CM3$+EXT$:AI$(6)=DEV$+CM6$+EXT$
  12. 10110 '
  13. 10120 CLS:PRINT "INTRODUCTION TO PC-GOLF":PRINT
  14. 10130 PRINT"While you are using the Introduction the"
  15. 10140 PRINT"only active keys on the keyboard are for"
  16. 10150 PRINT"getting a new page of information, or"
  17. 10160 PRINT"for returning to the menu."
  18. 10170 PRINT:PRINT"The page-up and page-down keys, PgUp and PgDn,"
  19. 10180 PRINT"will let you see the information you want.":PRINT
  20. 10182 PRINT"You can also use the letters 'U' and 'D'"
  21. 10184 PRINT"instead of the PgUp and PgDn keys.":PRINT
  22. 10190 PRINT"Use the letter  M  to return to the menu.":PRINT:GOSUB 580
  23. 10200 CLS:PRINT "INTRODUCTION TO PC-GOLF":PRINT
  24. 10210 PRINT "   You can get extra information for"
  25. 10220 PRINT"each of the six items in the menu.":PRINT
  26. 10230 '
  27. 10240 PRINT MNU1$:PRINT SPC(1)MNU2$:PRINT SPC(2)MNU5$
  28. 10250 PRINT SPC(3)MNU4$:PRINT SPC(4)MNU3$:PRINT SPC(5)MNU6$
  29. 10260 PRINT:PRINT "M. Return to PC-GOLF's menu."
  30. 10270 IF ROS=0 THEN 10290
  31. 10280 DEF SEG=&H40:I%=PEEK(&H17):I%=I% AND NOT 32:POKE &H17,I% 'numlock off
  32. 10290 '
  33. 10300 '
  34. 10310 PRINT:LOCATE CSRLIN,POS(0),1
  35. 10320 M1$="key":M2$="(1,2,3,4,5,6 or M). ":GOSUB 570
  36. 10330 IF KB$="M" OR KB$="m" THEN 10650 'free mem?
  37. 10340 IF KB<1 OR KB>6 THEN GOSUB 610:GOTO 10200
  38. 10350 RESTORE 838:GOSUB 810
  39. 10360 X=200 'max # lines in file
  40. 10370 A$=AI$(KB)
  41. 10380 OPEN A$ FOR INPUT AS #1
  42. 10390 FOR I=1 TO X:LINE INPUT #1,A$(I):IF EOF(1) THEN CLOSE:GOTO 10410
  43. 10400 NEXT
  44. 10410 LAST=I-1:PG=23
  45. 10420 '+++++
  46. 10430 CLS:LOCATE 25,40:COLOR 0,15,0:PRINT" Introduction - PgUp - PgDn - M ";
  47. 10440 COLOR 7,0,0:LOCATE 1,1,0
  48. 10450 FOR I=1 TO PG:LOCATE I,1:PRINT A$(I):NEXT:F=I
  49. 10460 '+++++
  50. 10470 KB$=INKEY$:IF KB$="" THEN 10470
  51. 10480 IF KB$="m" OR KB$="M" THEN 10200
  52. 10482 IF KB$="U" OR KB$="u" THEN 10600  ' page up
  53. 10484 IF KB$="D" OR KB$="d" THEN 10540  ' page down
  54. 10490 IF LEN(KB$)<>2 THEN 10470 ELSE KB=ASC(RIGHT$(KB$,1))
  55. 10500 '
  56. 10510 IF KB=73 THEN 10600
  57. 10520 IF KB<>81 THEN 10470
  58. 10530 '+++++     page down
  59. 10540 IF F>=LAST THEN 10470
  60. 10550 L=F+PG-1:IF L>LAST THEN L=LAST
  61. 10560 CLS:LOCATE 25,40:COLOR 0,15,0:PRINT" Introduction - PgUp - PgDn - M ";
  62. 10570 COLOR 7,0,0:LOCATE 1,1,0
  63. 10580 FOR I=F TO L:PRINT A$(I):NEXT:F=I:GOTO 10470
  64. 10590 '+++++     page up
  65. 10600 IF F=1 OR F=24 THEN 10470
  66. 10610 L=F-PG-1:F=L-PG+1:IF L<PG THEN F=1:L=PG
  67. 10620 CLS:LOCATE 25,40:COLOR 0,15,0:PRINT" Introduction - PgUp - PgDn - M ";
  68. 10630 COLOR 7,0,0:LOCATE 1,1,0
  69. 10640 FOR I=F TO L:PRINT A$(I):NEXT:F=I:GOTO 10470
  70. 10650 FOR I=1 TO 200:A$(I)="":NEXT I:GOTO 530 'back to main
  71. 10660 '++++
  72. 14000 '+++++  grunt work
  73. 14010 DELETE 490-9999
  74. 14020 SAVE"b:intro.asc",A
  75. 14030 RUN"b:main.bas"
  76. 15000 'for chain delete
  77. +
  78. 14000 '+++++  grunt work
  79. 14010 DELETE 490-9999